home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / onenot / oneabout.frm < prev    next >
Text File  |  1995-12-05  |  2KB  |  76 lines
  1. VERSION 2.00
  2. Begin Form AboutBox1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "AboutBox"
  6.    ClientHeight    =   2865
  7.    ClientLeft      =   2520
  8.    ClientTop       =   2400
  9.    ClientWidth     =   4980
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    ForeColor       =   &H00C0C0C0&
  13.    Height          =   3270
  14.    Icon            =   ONEABOUT.FRX:0000
  15.    Left            =   2460
  16.    LinkMode        =   1  'Source
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   2865
  21.    ScaleWidth      =   4980
  22.    Top             =   2055
  23.    Width           =   5100
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Ok"
  26.       FontBold        =   0   'False
  27.       FontItalic      =   0   'False
  28.       FontName        =   "MS Sans Serif"
  29.       FontSize        =   8.25
  30.       FontStrikethru  =   0   'False
  31.       FontUnderline   =   0   'False
  32.       Height          =   345
  33.       Left            =   1860
  34.       TabIndex        =   0
  35.       Top             =   2370
  36.       Visible         =   0   'False
  37.       Width           =   1215
  38.    End
  39.    Begin Timer Timer1 
  40.       Enabled         =   0   'False
  41.       Interval        =   1000
  42.       Left            =   4200
  43.       Top             =   2340
  44.    End
  45.    Begin Image Image1 
  46.       Height          =   2895
  47.       Left            =   0
  48.       Picture         =   ONEABOUT.FRX:0302
  49.       Top             =   0
  50.       Width           =   4995
  51.    End
  52. End
  53. Sub Command1_Click ()
  54.     Screen.MousePointer = HOURGLASS
  55.     AboutBox1.Hide
  56.     Screen.MousePointer = DEFAULT
  57. End Sub
  58.  
  59. Sub Form_Load ()
  60.     ' Center the AboutBox on the screen
  61.     '
  62.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  63.  
  64.     Timer1.Enabled = True
  65. End Sub
  66.  
  67. Sub Timer1_Timer ()
  68.     Screen.MousePointer = HOURGLASS
  69.     MIDIForm.Show
  70.     AboutBox1.Hide
  71.     Timer1.Enabled = False
  72.     AboutBox1.Command1.Visible = True
  73.     Screen.MousePointer = DEFAULT
  74. End Sub
  75.  
  76.